home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Texteditors / GoldED Tools / Macro Collection / FinsGold / TeX / enumerate.ged < prev    next >
Encoding:
Text File  |  1996-09-27  |  1.6 KB  |  68 lines
  1. /* $VER: enumerate V 0.5 (24.04.94) © 1994 Fin Schuppenhauer */
  2.  
  3. /**   
  4.       Erzeugt ein enumerate-Umgebung und fragt nach Anzahl der
  5.       zu erzeugenden Punkte (\item's).
  6.  
  7.       Meine Anschrift:
  8.  
  9.       Fin Schuppenhauer
  10.       Braußpark 10
  11.       20537 Hamburg
  12.       (Germany)
  13.  
  14.       E-Mail: schuppenhauer@rzdspc2.informatik.uni-hamburg.de
  15.         oder: 1schuppe@rzdspc2.informatik.uni-hamburg.de
  16.  
  17.  **/
  18.  
  19. OPTIONS RESULTS                             /* enable return codes     */
  20.  
  21. if (LEFT(ADDRESS(), 6) ~= "GOLDED") then    /* not started by GoldEd ? */
  22.     address 'GOLDED.1'
  23.  
  24. 'LOCK CURRENT'                              /* lock GUI, gain access   */
  25. OPTIONS FAILAT 6                            /* ignore warnings         */
  26. SIGNAL ON SYNTAX                            /* ensure clean exit       */
  27.  
  28.  
  29. /* ------------------------ INSERT YOUR CODE HERE: ------------------- */
  30.  
  31. 'QUERY CAT'
  32. german = (result = "deutsch")
  33.  
  34. if german then
  35.    'REQUEST TITLE="\enumerate" BODY="Anzahl der Punkte (\item''s) eingeben:" MIN=0 LONG VAR ITEMS'
  36. else
  37.    'REQUEST TITLE="\enumerate" BODY="Enter number of \item''s:" MIN=0 LONG VAR ITEMS'
  38.  
  39. if (rc = 0) & (ITEMS > 0) then do
  40.    'DOWN'
  41.    'INSERT LINE'
  42.    'TEXT STAY T="\begin{enumerate}"'
  43.    'PING SLOT=0'
  44.    do ITEMS
  45.       'DOWN'
  46.       'INSERT LINE'
  47.       'TEXT STAY T="   \item"'
  48.    end
  49.    'DOWN'
  50.    'INSERT LINE'
  51.    'TEXT STAY T="\end{enumerate}"'
  52.    'PONG SLOT=0'
  53.    'DOWN'
  54.    'GOTO STEP=9'
  55. end
  56.  
  57.  
  58. /* ---------------------------- END OF YOUR CODE --------------------- */
  59.  
  60. 'UNLOCK' /* VERY important: unlock GUI */
  61. EXIT
  62.  
  63. SYNTAX:
  64.  
  65. SAY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-("
  66. 'UNLOCK'
  67. EXIT
  68.